'====================================
'MANAGE ENGINE DESKTOP CENTRAL
'====================================

'Script to Enable Windows Automatic Update
 
 'Configuration Type : System
 

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service " & "where Name='wuauserv'")
dim wsh
set wsh = createobject("WScript.Shell")
wsh.run("REG.EXE DELETE ""HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU"" /v NoAutoUpdate /f")
set wsh = nothing

For Each objService In colServiceList
StartMode = UCase(objService.StartMode)

Wscript.Echo StartMode
If (StartMode = "DISABLED") Or (StartMode = "MANUAL") Then
errReturnCode = objService.ChangeStartMode("AUTOMATIC")
End If
objService.StartService()
Next